﻿<Serializable()> _
Public Class clsDataStru
    Dim mDescription As String
    ''' <summary>
    ''' 数据说明
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Description() As String
        Get
            Return mDescription
        End Get
        Set(ByVal value As String)
            mDescription = value
        End Set
    End Property
    Dim mLevel As Byte
    ''' <summary>
    ''' 层号
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Level() As Byte
        Get
            Return mLevel
        End Get
        Set(ByVal value As Byte)
            mLevel = value
        End Set
    End Property
    Dim mName As String
    ''' <summary>
    ''' 字段名
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Name() As String
        Get
            Return mName
        End Get
        Set(ByVal value As String)
            mName = value
        End Set
    End Property
    Dim mDataType As String
    ''' <summary>
    ''' 数据类型
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property DataType() As String
        Get
            Return mDataType
        End Get
        Set(ByVal value As String)
            mDataType = value
        End Set
    End Property
    Dim mDataTypeOptional As String
    ''' <summary>
    ''' 数据类型选项
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property DataTypeOptional() As String
        Get
            Return mDataTypeOptional
        End Get
        Set(ByVal value As String)
            mDataTypeOptional = value
        End Set
    End Property
    Dim mSubData As New List(Of clsDataStru)
    ''' <summary>
    ''' 子节点
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property SubData() As List(Of clsDataStru)
        Get
            Return mSubData
        End Get
        Set(ByVal value As List(Of clsDataStru))
            mSubData = value
        End Set
    End Property
    ''' <summary>
    ''' 增加一个节点
    ''' </summary>
    ''' <param name="msubDateItem"></param>
    ''' <remarks></remarks>
    Sub AddSubData(ByVal msubDateItem As clsDataStru)
        Me.mSubData.Add(msubDateItem)
    End Sub
End Class
